home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed5.d64 / p'blem p'nouns (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  8KB  |  237 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,0:POKEUX,0
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATION PROJECT 1983
  31. 310 REM PROJECT DIRECTOR: FRANK WINTER
  32. 320 REM PROGRAM NAME: PROBLEM PRONOUNS
  33. 330 REM WRITTEN BY: S. MATCZUK
  34. 340 REM REVISED BY: SANDRA BLANKENFELDT
  35. 350 REM UPDATED BY: BILL CUMBERLAND
  36. 360 REM WHC 90:05:14
  37. 399 :
  38. 400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,0:POKEUX,0:POKE646,3
  39. 405 PRINT"                [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  40. 410 [153]" (null)HIS PROGRAM IS INTENDED TO GIVE YOU"
  41. 420 [153]" PRACTICE WITH THE KINDS OF PRONOUNS"
  42. 430 [153]" THAT MANY STUDENTS OFTEN FIND           DIFFICULT."
  43. 440 [153]" (null)LEASE READ EACH SENTENCE CAREFULLY,
  44. 450 PRINT" AND DECIDE ON THE CORRECT ANSWER A[146]      OR B[146]."
  45. 460 GOSUB820:RETURN
  46. 499 :
  47. 500 REM <YES> SOUND
  48. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  49. 510 POKE54296,15:POKE54277,42:POKE54278,250
  50. 515 POKE54276,23:POKE54273,23:POKE54272,191
  51. 520 FORTM=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  52. 525 POKE54296,0:RETURN
  53. 529 :
  54. 530 REM <NO> SOUND
  55. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  56. 540 POKE54296,15:POKE54277,18:POKE54278,242
  57. 545 POKE54276,33:POKE54273,4:POKE54272,48
  58. 550 FORTM=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  59. 555 POKE54296,0:RETURN
  60. 559 :
  61. 560 REM <BLIP> SOUND
  62. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  63. 570 POKE54296,7:POKE54277,42:POKE54278,250
  64. 575 POKE54276,23:POKE54273,23:POKE54272,191
  65. 580 FORTM=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  66. 585 POKE54296,0:RETURN
  67. 590 FORT=1TO500:NEXT:RETURN
  68. 591 FORT=1TO1000:NEXT:RETURN
  69. 592 FORT=1TO2000:NEXT:RETURN
  70. 593 FORT=1TO3000:NEXT:RETURN
  71. 594 FORT=1TO4000:NEXT:RETURN
  72. 595 FORT=1TO5000:NEXT:RETURN
  73. 599 :
  74. 800 PRINT"[147]";:POKEUT,UU%:IFUW=0THENPOKEUY,0:POKEUX,O:POKE646,3
  75. 801 PRINT"      A TPUG EDUCATIONAL PROGRAM ":GOSUB591
  76. 802 PRINT"                                        [146]";
  77. 803 PRINT"                                        [146]";
  78. 804 PRINT"            PROBLEM PRONOUNS            [146]";
  79. 805 PRINT"                                        [146]";
  80. 806 PRINT"                MODULE 1                [146]";
  81. 807 PRINT"                                        [146]":GOSUB591:GOSUB560
  82. 808 PRINT"          INSTRUCTIONS?   Y/N"
  83. 809 GETR$:IFR$<>"Y"ANDR$<>"N" THEN 809
  84. 810 IFR$="Y"THEN GOSUB 400
  85. 811 PRINT"[147]  AND AWAY WE GO!
  86. 812 [141]591:[141]500:[141] 591
  87. 813 [137]1000
  88. 820 [141]591:[141]560
  89. 822 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO CONTINUECLOSEWAIT"
  90. 824 [161]UI$:[139]UI$[179][177]" "[167]824
  91. 826 [142]
  92. 830 [141]591:[141]560
  93. 835 [151]UN,0:[153][200](UD$,24);"PRINT PRESS SPACE BAR TO CONTINUECLOSEWAITLIST"
  94. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  95. 845 [142]
  96. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  97. 855 [153]" --------------------------------------"
  98. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,7);"ANSWER, THEN PRESS RETURNWAIT
  99. 865 UH=0:PRINT"":RETURN
  100. 900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
  101. 901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
  102. 902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  103. 903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  104. 904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
  105. 905 UD$="":UP$="                                      "
  106. 909 RETURN
  107. 910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  108. 916 DIMX$(20,3),UQ%(1000)
  109. 920 GOTO 800
  110. 999 :
  111. 1000 PRINT"[147]"UC$;:RESTORE:POKEUT,UU%:POKEUY,0:POKEUX,0
  112. 1090 RESTORE:R=0:W=0
  113. 1200 GOTO1320
  114. 1295 PRINT:PRINT" ANSWER A[146] OR B[146]."
  115. 1320 UT$=" PROBLEM PRONOUNS":UG$="QUESTION":UP=0:PRINT"[147]"
  116. 1340 FOR I=1TO20
  117. 1350 READ X$(I,1),X$(I,2),X$(I,3)
  118. 1360 NEXT I
  119. 1370 PRINT"[147] HERE ARE TWENTY QUESTIONS.":GOSUB591
  120. 1372 PRINT" GET READY ...":GOSUB560:GOSUB591
  121. 1374 PRINT" GO!":GOSUB500:GOSUB590
  122. 1380 REM  PRINT" ? ";:US$="ABCDEFGHIJKLMNOPQRSTUVWXYZ. ":UL=10:GOSUB35:N$=UR$
  123. 1450 PRINT"[147]"
  124. 1525 Q=20
  125. 1530 FOR J=1TOQ
  126. 1540 LET I=INT(1+20*RND(TI))
  127. 1550 IFG>20THEN1540
  128. 1560 GOSUB850:PRINT" CHOOSE THE CORRECT PRONOUN  A [146] OR  B [146]."
  129. 1570 GOSUB 560
  130. 1590 PRINT" ";X$(I,1)
  131. 1600 PRINT" ? ";:US$="AB":UL=1:GOSUB35:R$=UR$
  132. 1610 IF R$=X$(I,2)THEN 1630
  133. 1620 IF R$<>X$(I,2)THEN1660
  134. 1630 PRINT
  135. 1640 GOSUB1690
  136. 1650 GOTO1670
  137. 1660 GOSUB1880
  138. 1670 NEXT J
  139. 1680 GOTO 2590
  140. 1690 PRINT
  141. 1700 LET R=R+1
  142. 1710 LET V = INT(1+10*RND(0))
  143. 1720 IFV<4 THEN1770
  144. 1730 IFV<8THEN1810
  145. 1740 PRINT" VERY GOOD, "N$"![155]"
  146. 1760 GOTO1830
  147. 1770 PRINT" YOU'RE DOING FINE, "N$".[155]"
  148. 1800 GOTO1830
  149. 1810 PRINT" YOU'VE GOT IT, "N$"!![155]"
  150. 1830 GOSUB500:GOTO591:RETURN
  151. 1850 PRINT"[147]"
  152. 1860 RETURN
  153. 1880 PRINT
  154. 1890 W=W+1
  155. 1900 PRINT"[150] SORRY, "N$", YOU'RE WRONG.":GOSUB530
  156. 1910 PRINT
  157. 1920 PRINT" THE CORRECT ANSWER IS "X$(I,2)".":GOSUB591:GOSUB560
  158. 1930 PRINT"[158]"
  159. 1940 PRINTX$(I,3)
  160. 1950 REM
  161. 1960 PRINT"[155]":GOSUB835
  162. 1970 PRINT"[147]"
  163. 1980 RETURN
  164. 1990 DATA" A.WHO/B.WHOM [146] DO YOU THINK YOU LIKE      BEST?"
  165. 2000 DATA"B"
  166. 2010 DATA" BECAUSE  WHOM [146] IS THE OBJECT OF THE     VERB   LIKE [146]."
  167. 2020 DATA" A.WHO / B.WHOM [146] DO YOU THINK WOULD       READ TO US?"
  168. 2030 DATA"A"
  169. 2040 DATA"  WHO [146] IS THE SUBJECT OF THE VERB         WOULD READ[146]."
  170. 2050 DATA"HE ASKED  A.WHO / B.WHOM [146] HAD ARRIVED   DURING HIS ABSENCE."
  171. 2060 DATA"A"
  172. 2070 DATA"  WHO [146] IS THE SUBJECT OF THE VERB         HAD[160]ARRIVED [146]."
  173. 2080 DATA"HE BLAMED  A.US / B.WE [146] ACCOUNTANTS     FOR THE ERROR."
  174. 2090 DATA"A"
  175. 2100 DATA" OBJECT OF THE VERB  BLAMED [146] IS          REQUIRED."
  176. 2110 DATA"SHIP THE ORDER TO  A.WHOEVER/B.WHOMEVER [146]IS IN CHARGE.
  177. 2120 [131]"A"
  178. 2130 [131]"  WHOEVER WAIT IS THE SUBJECT OF THE VERB     IS WAIT."
  179. 2140 [131]"YOU  A.WHO / B.WHOM WAIT, I THINK,CALL ME   YOUR FRIEND, HAVE LEFT ME."
  180. 2150 [131]"A"
  181. 2160 [131]" YOU IS SUBJECT OF  HAVE LEFT WAIT;   WHO WAIT OF THE VERB  CALL WAIT."
  182. 2170 [131]"EVERYBODY AGREES TO VOTE FOR  A.WHOEVERWAIT /  B.WHOMEVERWAIT IS SELECTED.
  183. 2180 DATA"A"
  184. 2190 DATA"  WHOEVER [146] IS THE SUBJECT OF THE VERB     IS SELECTED [146]."
  185. 2200 DATA"WILL YOU AGREE TO RELEASE  A.US / B.WE [146] WOMEN FROM JURY DUTY?"
  186. 2210 DATA"A"
  187. 2220 DATA"  US [146] IS THE OBJECT OF A TO + A VERB [146]  PHRASE  TO RELEASE [146]."
  188. 2230 DATA"IT WAS  A.HER / B.SHE [146] WHO WAS ACCUSED  OF BREAKING IT."
  189. 2240 DATA"B"
  190. 2250 DATA" NOMINATIVE CASE REQUIRED AFTER THE NON- ACTION VERB  WAS [146]."
  191. 2260 DATA"I DO NOT KNOW  A.WHO / B.WHOM [146] YOU      TOLD ABOUT THE MOVIE."
  192. 2270 DATA"B"
  193. 2280 DATA"  WHOM [146] IS THE OBJECT OF THE VERB  TOLD [146]."
  194. 2290 DATA"EVERYBODY PUTS OUT  A.THEIR / B.HIS [146]    BEST EFFORT ON EXAMS."
  195. 2300 DATA"B"
  196. 2310 DATA" THE ANTECEDENT  EVERYBODY [146] ALWAYS       TAKES A SINGULAR PRONOUN."
  197. 2320 DATA"IT IS  A.I / B.ME [146] FROM WHOM HE WISHES  TO HEAR AN APOLOGY.
  198. 2330 [131]"A"
  199. 2340 [131]" NOMINATIVE CASE ALWAYS FOLLOWS THE NON- ACTION VERB  IS WAIT."
  200. 2350 [131]"IT GOES TO ME OR  A.WHOMEVER/B.WHOEVER WAIT WANTS THE USED MATERIAL.
  201. 2360 DATA"B"
  202. 2370 DATA"  WHOEVER [146] IS THE SUBJECT OF THE VERB      WANTS [146]."
  203. 2380 DATA"IT GOES TO ME OR  A.WHOEVER/B.WHOMEVER [146] YOU WANT TO HAVE IT."
  204. 2390 DATA"B"
  205. 2400 DATA" BOTH  HER [146] AND  WHOMEVER [146] ARE OBJECTS OF THE PREPOSITION  TO [146]."
  206. 2410 DATA"TIM JONES, A.WHO/B.WHOM [146],I BELIEVE CAN  BE TRUSTED, IS A GOOD MAN.
  207. 2420 [131]"A"
  208. 2430 [131]"  WHO WAIT IS THE SUBJECT OF  CAN BE TRUSTED WAIT."
  209. 2440 [131]"ANYBODY CAN BRING  A.THEIR / B.HIS WAIT     BOOKS TO CLASS."
  210. 2450 [131]"B"
  211. 2460 [131]" ANTECEDENT  ANYBODY WAIT REQUIRES THE       SINGULAR PRONOUN  HIS WAIT."
  212. 2470 [131]"DONATE IT TO  A.WHOEVER / B.WHOMEVER WAIT   YOU WISH TO SELECT."
  213. 2480 [131]"B"
  214. 2490 [131]"  WHOMEVER WAIT IS THE OBJECT OF THE           PREPOSITION  TO WAIT."
  215. 2500 [131]"YOU WILL GET IT FROM  A.WHOEVER/B.WHOM-WAIT EVERWAIT YOU SEE AT THE DOOR.
  216. 2510 DATA"B"
  217. 2520 DATA"  WHOMEVER [146] IS THE OBJECT OF THE           PREPOSITION  FROM[160][146]."
  218. 2530 DATA"HE WAS CURIOUS IN KNOWING  A.WHO/B.WHOM [146]THE AUDITOR WAS."
  219. 2540 DATA"A"
  220. 2550 DATA" NON-ACTION VERB  WAS [146] TAKES THE         NOMINATIVE CASE."
  221. 2560 DATA"EACH OF THEM BELIEVES IN  A.HIS/B.THEIR [146]POWER TO SELL THE GOODS.
  222. 2570 [131]"A"
  223. 2580 [131]" ANTECEDENT  EACH WAIT ALWAYS TAKES A        SINGULAR PRONOUN."
  224. 2590 [153]"SYSLOAD YOU HAVE DONE "R[170]W" QUESTIONS.WAIT":[141]591
  225. 2600 [153]" YOU HAVE "R" RIGHT AND "W" WRONG.":[141]591
  226. 2610 [153]" YOU HAVE "[181](100[172]R[173](R[170]W))"PERCENT CORRECT.":[141]592:[141]830
  227. 2670 [153]"LOAD  YOU HAVE A CHOICE:
  228. 2672 PRINT"  PRESS  R [146] TO REPEAT THIS PROGRAM
  229. 2674 [153]"  PRESS  M WAIT TO RETURN TO THE MENU
  230. 2676 GETR$:IFR$<>"R"ANDR$<>"M"THEN2676
  231. 2678 IFR$="R"THENRESTORE:GOTO800
  232. 2682 PRINT"[147]  RETURNING TO THE DISK MENU
  233. 2684 [147]"MENU",8
  234. 2686 [138]
  235. 2688 [128]
  236. 2700 [143] WHC 90:11:29
  237.